home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-03 / qbasicpg.zip / CIRCLE-1.BAS < prev    next >
BASIC Source File  |  1989-08-31  |  487b  |  20 lines

  1. ' CIRCLE-1.BAS
  2. ' This program demonstrates the CIRCLE statement.
  3.  
  4. CLS
  5.  
  6. INPUT "Please enter a screen mode (0-13):  ", modeNum%
  7. SCREEN modeNum%
  8.  
  9. DO
  10.     LOCATE 21, 1
  11.     INPUT "Please enter the column number:  ", colNum%
  12.     INPUT "   Please enter the row number:  ", rowNum%
  13.     INPUT "       Please enter the radius:  ", radius%
  14.     CIRCLE (colNum%, rowNum%), radius%
  15.     INPUT "Press Enter to continue or Q to quit: ", dummy$
  16.     CLS
  17. LOOP UNTIL UCASE$(dummy$) = "Q"
  18.  
  19.  
  20.